|
<%
idx = request("idx")
sql = "select top 1 idx,adult,title,content,manga_idx,manga_name,begin_date,stop_date,manga_img,readnum from live_poll "
if idx = "" then
sql = sql & " where adult="& adult_view
else
sql = sql & " where idx="& idx
end if
sql = sql & " order by idx desc"
set rs = server.createobject("adodb.recordset")
rs.open sql,db
idx = rs("idx")
title = rs("title")
content = rs("content")
manga_idx1 = rs("manga_idx")
if manga_idx1 <> "" then
manga_idx = split(manga_idx1,"#")
end if
manga_name = rs("manga_name")
manga_name = split(manga_name,"#")
begin_date = rs("begin_date")
stop_date = rs("stop_date")
manga_img = rs("manga_img")
manga_img = split(manga_img,"#")
readnum = rs("readnum")
adult = rS("adult")
sql = "select middleimage from comic where name like '"& manga_name(0) &"'"
set rs = db.Execute(SQL)
if rs.eof or rs.bof then
if adult = "0" then
middleimage = "upfile/view.jpg"
else
middleimage = "upfile/view1.jpg"
end if
else
middleimage = "../img/comic/" & rs("middleimage")
end if
rs.close
set rs = nothing
%>
|
<%
if request("page")="" then
page=1
else
page=request("page")
end if
sql = " select idx,title,begin_date,stop_date,readnum,adult from live_poll "
sql = sql & " where adult="& adult_view &" order by idx desc "
set rs = server.createobject("adodb.recordset")
rs.pagesize = 10
rs.open sql,db,1
if not rs.BOF or not rs.EOF then
totalpage = rs.PageCount
rs.AbsolutePage = page
i = 0
Do until rs.EOF or i>=rs.pagesize
num=(rs.RecordCount-i-(Page-1)*rs.PageSize)
%>
<%
rs.MoveNext
i=i+1
loop
end if
%>
|
|